home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of the Former Soviet Union / USGS Oil & Gas Fields of the Former Soviet Union.iso / pc / fsu / text / unix / mapbar.e00 < prev    next >
Encoding:
ESRI Arc/Info Export  |  1998-10-19  |  24.6 KB  |  900 lines
  1. EXP  0 /ACCOUNTS2/FPERSITS/RUS_GEO/TEXT_UX/MAPBAR.E00                           
  2. ASC  2
  3. /* mapbar.aml 12/16/93 W R Beeman
  4. /* This aml draws a scalebar for any specified scale.  There are eight parts to
  5. /* the aml - each referring to a specific template for a range of scale
  6. /* values.  The templates were provided by USGS Central Technical Reports.
  7. /* This aml uses variables to assign the various values for the boxes and
  8. /* lines that constitute a scalebar.  As a consequence, it modifies the
  9. /* appropriate scalebar for any scale.  It is designed to be called from
  10. /* arcplot by specifying the x and y coordinates and the mapscale.  The
  11. /* x and y coordinates will specify the location of the left edge of the
  12. /* "Miles" scalebar (the middle scalebar).  The mapscale should be specified
  13. /* as a single integer.  eg: mapbar 1 2 100000 will construct a scalebar
  14. /* for a 1:100000 coverage with its left edge 1 inch in, and centered at
  15. /* approximately 2 inches up.
  16. /* Because of the possibility that someone could have an inappropriate line
  17. /* width specified when the program is called, the lineset plotter.lin
  18. /* and linesymbol 1 are specified at the beginning of the program.  Those
  19. /* program lines can be removed if a different lineset, weight or color is
  20. /* desired.
  21. /* This program has been tested and has worked to perform the specified tasks.
  22. /* However, no warranty is expressed or implied as to its performance on any
  23. /* other system.  It was designed for ARC/INFO version 6.1.1.
  24. /* wbeeman@greenwood.cr.usgs.gov
  25.  
  26. &args varx vary msc
  27. lineset plotter.lin
  28. linesymbol 1
  29. &sv in1 := 63360 / %msc%
  30. &if %msc% >= 1000000 and %msc% < 10000000 &then
  31. &do
  32. &sv msca := [substr %msc% 1 1]
  33. &sv mscb := [substr %msc% 2 3]
  34. &sv mscc := [substr %msc% 5 3]
  35. &sv msc2 := %msca% %mscb% %mscc%
  36. &end
  37. &if %msc% >= 100000 and %msc% < 1000000 &then
  38. &do
  39. &sv msca := [substr %msc% 1 3]
  40. &sv mscb := [substr %msc% 4 3]
  41. &sv msc2 := %msca% %mscb%
  42. &end
  43. &if %msc% >= 10000 and %msc% < 100000 &then
  44. &do
  45. &sv msca := [substr %msc% 1 2]
  46. &sv mscb := [substr %msc% 3 3]
  47. &sv msc2 := %msca% %mscb%
  48. &end
  49. &if %msc% < 10000 or %msc% > 10000000 &then
  50. &do
  51. &sv msc2 := %msc%
  52. &end
  53. &sv vary2 := %vary% + .05
  54. &sv vary3 := %vary% + .025
  55. &sv vary4 := %vary% + .07
  56. &sv vary5 := %vary% + .42
  57. &sv vary6 := %vary% - .33
  58. &sv vary7 := %vary% - .40
  59. &sv vary8 := %vary% - .35
  60. &sv vary9 := %vary% - .375
  61. &if %msc% >= 150000 and %msc% <= 350000 &then
  62. &do
  63. pensize .005
  64. &sv varx1 := %varx% + %in1%
  65. &sv varx2 := %varx1% + %in1%
  66. &sv varx3 := %varx2% + %in1%
  67. &sv varx4 := %varx3% + %in1%
  68. &sv varx5 := %varx4% + %in1%
  69. &sv varx6 := %varx5% + 5 * %in1%
  70. &sv varx7 := %varx6% + 5 * %in1%
  71. &sv varx8 := %varx7% + 5 * %in1%
  72. &sv varx9 := %varx% - .02
  73. &sv varx10 := %varx5% - .02
  74. &sv varx11 := %varx6% - .02
  75. &sv varx12 := %varx7% - .04
  76. &sv varx13 := %varx8% - .04
  77. &sv varx14 := %varx6% - .40
  78. box %varx% %vary% %varx1% %vary2%
  79. box %varx1% %vary% %varx2% %vary2%
  80. box %varx2% %vary% %varx3% %vary2%
  81. box %varx3% %vary% %varx4% %vary2%
  82. box %varx4% %vary% %varx5% %vary2%
  83. box %varx5% %vary% %varx6% %vary2%
  84. box %varx6% %vary% %varx7% %vary2%
  85. box %varx7% %vary% %varx8% %vary2%
  86. pensize .010
  87. line %varx% %vary3% %varx1% %vary3%
  88. line %varx2% %vary3% %varx3% %vary3%
  89. line %varx4% %vary3% %varx5% %vary3%
  90. line %varx6% %vary3% %varx7% %vary3%
  91. textspacing 1.2
  92. textquality proportional
  93. textsize .1 .08
  94. textfont 94021
  95. move %varx9% %vary4%
  96. text '5'
  97. move %varx10% %vary4%
  98. text '0'
  99. move %varx11% %vary4%
  100. text '5'
  101. move %varx12% %vary4%
  102. text '10'
  103. move %varx13% %vary4%
  104. text '15 MILES'
  105. textsize .125 .1
  106. move %varx14% %vary5%
  107. text 'SCALE 1: '
  108. text [quote %msc2%]
  109. &sv varx15 := 2.23286 * %in1%
  110. &sv mtr1 := .62137119 * %in1%
  111. &sv varx16 := %varx% + %varx15%
  112. &sv varx17 := %varx16% + %mtr1%
  113. &sv varx18 := %varx17% + %mtr1%
  114. &sv varx19 := %varx18% + %mtr1%
  115. &sv varx20 := %varx19% + %mtr1%
  116. &sv varx21 := %varx20% + %mtr1%
  117. &sv varx22 := %varx21% + 5 * %mtr1%
  118. &sv varx23 := %varx22% + 5 * %mtr1%
  119. &sv varx24 := %varx23% + 5 * %mtr1%
  120. &sv varx25 := %varx24% + 5 * %mtr1%
  121. &sv varx26 := %varx16% - .02
  122. &sv varx27 := %varx21% - .02
  123. &sv varx28 := %varx22% - .02
  124. &sv varx29 := %varx23% - .04
  125. &sv varx30 := %varx24% - .04
  126. &sv varx31 := %varx25% - .04
  127. pensize .005
  128. box %varx16% %vary7% %varx17% %vary8%
  129. box %varx17% %vary7% %varx18% %vary8%
  130. box %varx18% %vary7% %varx19% %vary8%
  131. box %varx19% %vary7% %varx20% %vary8%
  132. box %varx20% %vary7% %varx21% %vary8%
  133. box %varx21% %vary7% %varx22% %vary8%
  134. box %varx22% %vary7% %varx23% %vary8%
  135. box %varx23% %vary7% %varx24% %vary8%
  136. box %varx24% %vary7% %varx25% %vary8%
  137. pensize .010
  138. line %varx16% %vary9% %varx17% %vary9%
  139. line %varx18% %vary9% %varx19% %vary9%
  140. line %varx20% %vary9% %varx21% %vary9%
  141. line %varx22% %vary9% %varx23% %vary9%
  142. line %varx24% %vary9% %varx25% %vary9%
  143. textsize .1 .08
  144. move %varx26% %vary6%
  145. text '5'
  146. move %varx27% %vary6%
  147. text '0'
  148. move %varx28% %vary6%
  149. text '5'
  150. move %varx29% %vary6%
  151. text '10'
  152. move %varx30% %vary6%
  153. text '15'
  154. move %varx31% %vary6%
  155. text '20 KILOMETERS'
  156. &end
  157. /* part2 mapbar.aml 12/08/93  wbeeman
  158. &if %msc% >= 80000 and %msc% < 150000 &then
  159. &do
  160. pensize .005
  161. &sv varx1 := %varx% + %in1%
  162. &sv varx2 := %varx1% + %in1%
  163. &sv varx3 := %varx2% + %in1%
  164. &sv varx4 := %varx3% + %in1%
  165. &sv varx5 := %varx4% + %in1%
  166. &sv varx6 := %varx5% + 5 * %in1%
  167. &sv varx9 := %varx% - .02
  168. &sv varx10 := %varx5% - .02
  169. &sv varx11 := %varx6% - .02
  170. box %varx% %vary% %varx1% %vary2%
  171. box %varx1% %vary% %varx2% %vary2%
  172. box %varx2% %vary% %varx3% %vary2%
  173. box %varx3% %vary% %varx4% %vary2%
  174. box %varx4% %vary% %varx5% %vary2%
  175. box %varx5% %vary% %varx6% %vary2%
  176. pensize .010
  177. line %varx% %vary3% %varx1% %vary3%
  178. line %varx2% %vary3% %varx3% %vary3%
  179. line %varx4% %vary3% %varx5% %vary3%
  180. textspacing 1.2
  181. textquality proportional
  182. textsize .1 .08
  183. textfont 94021
  184. move %varx9% %vary4%
  185. text '5'
  186. move %varx10% %vary4%
  187. text '0'
  188. move %varx11% %vary4%
  189. text '5 MILES'
  190. textsize .125 .1
  191. &sv varx14 := %varx5% - .4
  192. move %varx14% %vary5%
  193. text 'SCALE 1: '
  194. text [quote %msc2%]
  195. &sv varx15 := .33971608 * %in1%
  196. &sv mtr1 := .62137119 * %in1%
  197. &sv varx16 := %varx% + %varx15%
  198. &sv varx17 := %varx16% + %mtr1%
  199. &sv varx18 := %varx17% + %mtr1%
  200. &sv varx19 := %varx18% + %mtr1%
  201. &sv varx20 := %varx19% + %mtr1%
  202. &sv varx21 := %varx20% + %mtr1%
  203. &sv varx22 := %varx21% + 5 * %mtr1%
  204. &sv varx23 := %varx22% + 5 * %mtr1%
  205. &sv varx26 := %varx16% - .02
  206. &sv varx27 := %varx21% - .02
  207. &sv varx28 := %varx22% - .02
  208. &sv varx29 := %varx23% - .04
  209. pensize .005
  210. box %varx16% %vary7% %varx17% %vary8%
  211. box %varx17% %vary7% %varx18% %vary8%
  212. box %varx18% %vary7% %varx19% %vary8%
  213. box %varx19% %vary7% %varx20% %vary8%
  214. box %varx20% %vary7% %varx21% %vary8%
  215. box %varx21% %vary7% %varx22% %vary8%
  216. box %varx22% %vary7% %varx23% %vary8%
  217. pensize .010
  218. line %varx16% %vary9% %varx17% %vary9%
  219. line %varx18% %vary9% %varx19% %vary9%
  220. line %varx20% %vary9% %varx21% %vary9%
  221. line %varx22% %vary9% %varx23% %vary9%
  222. textsize .1 .08
  223. move %varx26% %vary6%
  224. text '5'
  225. move %varx27% %vary6%
  226. text '0'
  227. move %varx28% %vary6%
  228. text '5'
  229. move %varx29% %vary6%
  230. text '10 KILOMETERS'
  231. &end
  232. /* Part 3  mapbar.aml 12/08/93 W R Beeman
  233. &if %msc% < 40000 &then
  234. &do
  235. &sv in8 := .1 * %in1%
  236. pensize .005
  237. &sv varx1 := %varx% + %in8%
  238. &sv varx2 := %varx1% + %in8%
  239. &sv varx3 := %varx2% + %in8%
  240. &sv varx4 := %varx3% + %in8%
  241. &sv varx5 := %varx4% + %in8%
  242. &sv varx6 := %varx5% + %in8%
  243. &sv varx7 := %varx6% + %in8%
  244. &sv varx8 := %varx7% + %in8%
  245. &sv varx8a := %varx8% + %in8%
  246. &sv varx8b := %varx8a% + %in8%
  247. &sv varx8c := %varx8b% + %in1%
  248. &sv varx9 := %varx% - .02
  249. &sv varx10 := %varx5% - .04
  250. &sv varx11 := %varx8b% - .02
  251. &sv varx12 := %varx8c% - .02
  252. &sv varx14a := %varx8c% + %varx%
  253. &sv varx14b := %varx14a% / 2
  254. &sv varx14 := %varx14b% - .4
  255. box %varx% %vary% %varx1% %vary2%
  256. box %varx1% %vary% %varx2% %vary2%
  257. box %varx2% %vary% %varx3% %vary2%
  258. box %varx3% %vary% %varx4% %vary2%
  259. box %varx4% %vary% %varx5% %vary2%
  260. box %varx5% %vary% %varx6% %vary2%
  261. box %varx6% %vary% %varx7% %vary2%
  262. box %varx7% %vary% %varx8% %vary2%
  263. box %varx8% %vary% %varx8a% %vary2%
  264. box %varx8a% %vary% %varx8b% %vary2%
  265. box %varx8b% %vary% %varx8c% %vary2%
  266. pensize .010
  267. line %varx% %vary3% %varx1% %vary3%
  268. line %varx2% %vary3% %varx3% %vary3%
  269. line %varx4% %vary3% %varx5% %vary3%
  270. line %varx6% %vary3% %varx7% %vary3%
  271. line %varx8% %vary3% %varx8a% %vary3%
  272. line %varx8b% %vary3% %varx8c% %vary3%
  273. textspacing 1.2
  274. textquality proportional
  275. textsize .1 .08
  276. textfont 94021
  277. move %varx9% %vary4%
  278. text '1'
  279. move %varx10% %vary4%
  280. text '.5'
  281. move %varx11% %vary4%
  282. text '0'
  283. move %varx12% %vary4%
  284. text '1 MILE'
  285. textsize .125 .1
  286. move %varx14% %vary5%
  287. text 'SCALE 1: '
  288. text [quote %msc2%]
  289. &sv varx15 := .37862881 * %in1%
  290. &sv mtr1 := .62137119 * %in1%
  291. &sv mtr2 := .1 * %mtr1%
  292. &sv varx16 := %varx% + %varx15%
  293. &sv varx17 := %varx16% + %mtr2%
  294. &sv varx18 := %varx17% + %mtr2%
  295. &sv varx19 := %varx18% + %mtr2%
  296. &sv varx20 := %varx19% + %mtr2%
  297. &sv varx21 := %varx20% + %mtr2%
  298. &sv varx22 := %varx21% + %mtr2%
  299. &sv varx23 := %varx22% + %mtr2%
  300. &sv varx24 := %varx23% + %mtr2%
  301. &sv varx25 := %varx24% + %mtr2%
  302. &sv varx25a := %varx25% + %mtr2%
  303. &sv varx25b := %varx25a% + %mtr1%
  304. &sv varx26 := %varx16% - .02
  305. &sv varx27 := %varx21% - .04
  306. &sv varx28 := %varx25a% - .02
  307. &sv varx29 := %varx25b% - .02
  308. pensize .005
  309. box %varx16% %vary7% %varx17% %vary8%
  310. box %varx17% %vary7% %varx18% %vary8%
  311. box %varx18% %vary7% %varx19% %vary8%
  312. box %varx19% %vary7% %varx20% %vary8%
  313. box %varx20% %vary7% %varx21% %vary8%
  314. box %varx21% %vary7% %varx22% %vary8%
  315. box %varx22% %vary7% %varx23% %vary8%
  316. box %varx23% %vary7% %varx24% %vary8%
  317. box %varx24% %vary7% %varx25% %vary8%
  318. box %varx25% %vary7% %varx25a% %vary8%
  319. box %varx25a% %vary7% %varx25b% %vary8%
  320. pensize .010
  321. line %varx16% %vary9% %varx17% %vary9%
  322. line %varx18% %vary9% %varx19% %vary9%
  323. line %varx20% %vary9% %varx21% %vary9%
  324. line %varx22% %vary9% %varx23% %vary9%
  325. line %varx24% %vary9% %varx25% %vary9%
  326. line %varx25a% %vary9% %varx25b% %vary9%
  327. line %varx24% %vary9% %varx25b% %vary9%
  328. textsize .1 .08
  329. move %varx26% %vary6%
  330. text '1'
  331. move %varx27% %vary6%
  332. text '.5'
  333. move %varx28% %vary6%
  334. text '0'
  335. move %varx29% %vary6%
  336. text '1 KILOMETER'
  337. &end
  338. /* Part 4 mapbar.aml 12/08/93 W R Beeman
  339. &if %msc% > 350000 and %msc% <= 750000 &then
  340. &do
  341. &sv in2 := 2 * %in1%
  342. pensize .005
  343. &sv varx1 := %varx% + %in2%
  344. &sv varx2 := %varx1% + %in2%
  345. &sv varx3 := %varx2% + %in2%
  346. &sv varx4 := %varx3% + %in2%
  347. &sv varx5 := %varx4% + %in2%
  348. &sv varx6 := %varx5% + 5 * %in2%
  349. &sv varx7 := %varx6% + 5 * %in2%
  350. &sv varx8 := %varx7% + 5 * %in2%
  351. &sv varx8a := %varx8% + 5 * %in2%
  352. &sv varx8b := %varx8a% + 5 * %in2%
  353. &sv varx9 := %varx% - .04
  354. &sv varx10 := %varx5% - .02
  355. &sv varx11 := %varx6% - .04
  356. &sv varx12 := %varx7% - .04
  357. &sv varx13 := %varx8% - .04
  358. &sv varx13a := %varx8a% - .04
  359. &sv varx13b := %varx8b% - .04
  360. &sv varx14a := %varx8b% + %varx%
  361. &sv varx14b := %varx14a% / 2
  362. &sv varx14 := %varx14b% - .4
  363. box %varx% %vary% %varx1% %vary2%
  364. box %varx1% %vary% %varx2% %vary2%
  365. box %varx2% %vary% %varx3% %vary2%
  366. box %varx3% %vary% %varx4% %vary2%
  367. box %varx4% %vary% %varx5% %vary2%
  368. box %varx5% %vary% %varx6% %vary2%
  369. box %varx6% %vary% %varx7% %vary2%
  370. box %varx7% %vary% %varx8% %vary2%
  371. box %varx8% %vary% %varx8a% %vary2%
  372. box %varx8a% %vary% %varx8b% %vary2%
  373. pensize .010
  374. line %varx% %vary3% %varx1% %vary3%
  375. line %varx2% %vary3% %varx3% %vary3%
  376. line %varx4% %vary3% %varx5% %vary3%
  377. line %varx6% %vary3% %varx7% %vary3%
  378. line %varx8% %vary3% %varx8a% %vary3%
  379. textspacing 1.2
  380. textquality proportional
  381. textsize .1 .08
  382. textfont 94021
  383. move %varx9% %vary4%
  384. text '10'
  385. move %varx10% %vary4%
  386. text '0'
  387. move %varx11% %vary4%
  388. text '10'
  389. move %varx12% %vary4%
  390. text '20'
  391. move %varx13% %vary4%
  392. text '30'
  393. move %varx13a% %vary4%
  394. text '40'
  395. move %varx13b% %vary4%
  396. text '50 MILES'
  397. textsize .125 .1
  398. move %varx14% %vary5%
  399. text 'SCALE 1: '
  400. text [quote %msc2%]
  401. &sv varx15 := 11.358864 * %in1%
  402. &sv mtr1 := .62137119 * %in1%
  403. &sv mtr2 := 2 * %mtr1%
  404. &sv varx16 := %varx% + %varx15%
  405. &sv varx17 := %varx16% + %mtr2%
  406. &sv varx18 := %varx17% + %mtr2%
  407. &sv varx19 := %varx18% + %mtr2%
  408. &sv varx20 := %varx19% + %mtr2%
  409. &sv varx21 := %varx20% + %mtr2%
  410. &sv varx22 := %varx21% + 5 * %mtr2%
  411. &sv varx23 := %varx22% + 5 * %mtr2%
  412. &sv varx24 := %varx23% + 5 * %mtr2%
  413. &sv varx25 := %varx24% + 5 * %mtr2%
  414. &sv varx25a := %varx25% + 5 * %mtr2%
  415. &sv varx26 := %varx16% - .04
  416. &sv varx27 := %varx21% - .02
  417. &sv varx28 := %varx22% - .04
  418. &sv varx29 := %varx23% - .04
  419. &sv varx30 := %varx24% - .04
  420. &sv varx31 := %varx25% - .04
  421. &sv varx31a := %varx25a% - .04
  422. pensize .005
  423. box %varx16% %vary7% %varx17% %vary8%
  424. box %varx17% %vary7% %varx18% %vary8%
  425. box %varx18% %vary7% %varx19% %vary8%
  426. box %varx19% %vary7% %varx20% %vary8%
  427. box %varx20% %vary7% %varx21% %vary8%
  428. box %varx21% %vary7% %varx22% %vary8%
  429. box %varx22% %vary7% %varx23% %vary8%
  430. box %varx23% %vary7% %varx24% %vary8%
  431. box %varx24% %vary7% %varx25% %vary8%
  432. box %varx25% %vary7% %varx25a% %vary8%
  433. pensize .010
  434. line %varx16% %vary9% %varx17% %vary9%
  435. line %varx18% %vary9% %varx19% %vary9%
  436. line %varx20% %vary9% %varx21% %vary9%
  437. line %varx22% %vary9% %varx23% %vary9%
  438. line %varx24% %vary9% %varx25% %vary9%
  439. textsize .1 .08
  440. move %varx26% %vary6%
  441. text '10'
  442. move %varx27% %vary6%
  443. text '0'
  444. move %varx28% %vary6%
  445. text '10'
  446. move %varx29% %vary6%
  447. text '20'
  448. move %varx30% %vary6%
  449. text '30'
  450. move %varx31% %vary6%
  451. text '40'
  452. move %varx31a% %vary6%
  453. text '50 KILOMETERS'
  454. &end
  455. /* Part 5 mapbar.aml 12/08/93 W R Beeman
  456. &if %msc% > 750000 and %msc% <= 2000000 &then
  457. &do
  458. &sv in2 := 5 * %in1%
  459. pensize .005
  460. &sv varx1 := %varx% + %in2%
  461. &sv varx2 := %varx1% + %in2%
  462. &sv varx3 := %varx2% + %in2%
  463. &sv varx4 := %varx3% + %in2%
  464. &sv varx5 := %varx4% + %in2%
  465. &sv varx6 := %varx5% + 5 * %in2%
  466. &sv varx7 := %varx6% + 5 * %in2%
  467. &sv varx9 := %varx% - .04
  468. &sv varx10 := %varx5% - .02
  469. &sv varx11 := %varx6% - .04
  470. &sv varx12 := %varx7% - .04
  471. &sv varx14a := %varx7% + %varx%
  472. &sv varx14b := %varx14a% / 2
  473. &sv varx14 := %varx14b% - .4
  474. box %varx% %vary% %varx1% %vary2%
  475. box %varx1% %vary% %varx2% %vary2%
  476. box %varx2% %vary% %varx3% %vary2%
  477. box %varx3% %vary% %varx4% %vary2%
  478. box %varx4% %vary% %varx5% %vary2%
  479. box %varx5% %vary% %varx6% %vary2%
  480. box %varx6% %vary% %varx7% %vary2%
  481. pensize .010
  482. line %varx% %vary3% %varx1% %vary3%
  483. line %varx2% %vary3% %varx3% %vary3%
  484. line %varx4% %vary3% %varx5% %vary3%
  485. line %varx6% %vary3% %varx7% %vary3%
  486. textspacing 1.2
  487. textquality proportional
  488. textsize .1 .08
  489. textfont 94021
  490. move %varx9% %vary4%
  491. text '25'
  492. move %varx10% %vary4%
  493. text '0'
  494. move %varx11% %vary4%
  495. text '25'
  496. move %varx12% %vary4%
  497. text '50 MILES'
  498. textsize .125 .1
  499. move %varx14% %vary5%
  500. text 'SCALE 1: '
  501. text [quote %msc2%]
  502. &sv varx15 := 14.19858 * %in1%
  503. &sv mtr1 := .62137119 * %in1%
  504. &sv mtr2 := 5 * %mtr1%
  505. &sv varx16 := %varx% + %varx15%
  506. &sv varx17 := %varx16% + %mtr2%
  507. &sv varx18 := %varx17% + %mtr2%
  508. &sv varx19 := %varx18% + %mtr2%
  509. &sv varx20 := %varx19% + %mtr2%
  510. &sv varx21 := %varx20% + %mtr2%
  511. &sv varx22 := %varx21% + 5 * %mtr2%
  512. &sv varx23 := %varx22% + 5 * %mtr2%
  513. &sv varx26 := %varx16% - .04
  514. &sv varx27 := %varx21% - .02
  515. &sv varx28 := %varx22% - .04
  516. &sv varx29 := %varx23% - .04
  517. pensize .005
  518. box %varx16% %vary7% %varx17% %vary8%
  519. box %varx17% %vary7% %varx18% %vary8%
  520. box %varx18% %vary7% %varx19% %vary8%
  521. box %varx19% %vary7% %varx20% %vary8%
  522. box %varx20% %vary7% %varx21% %vary8%
  523. box %varx21% %vary7% %varx22% %vary8%
  524. box %varx22% %vary7% %varx23% %vary8%
  525. pensize .010
  526. line %varx16% %vary9% %varx17% %vary9%
  527. line %varx18% %vary9% %varx19% %vary9%
  528. line %varx20% %vary9% %varx21% %vary9%
  529. line %varx22% %vary9% %varx23% %vary9%
  530. textsize .1 .08
  531. move %varx26% %vary6%
  532. text '25'
  533. move %varx27% %vary6%
  534. text '0'
  535. move %varx28% %vary6%
  536. text '25'
  537. move %varx29% %vary6%
  538. text '50 KILOMETERS'
  539. &end
  540. /* Part 6 mapbar.aml 12/08/93 W R Beeman
  541. &if %msc% > 2000000 and %msc% <= 4000000 &then
  542. &do
  543. &sv in2 := 10 * %in1%
  544. pensize .005
  545. &sv varx1 := %varx% + %in2%
  546. &sv varx2 := %varx1% + %in2%
  547. &sv varx3 := %varx2% + %in2%
  548. &sv varx4 := %varx3% + %in2%
  549. &sv varx5 := %varx4% + %in2%
  550. &sv varx6 := %varx5% + 5 * %in2%
  551. &sv varx7 := %varx6% + 5 * %in2%
  552. &sv varx8 := %varx7% + 5 * %in2%
  553. &sv varx8a := %varx8% + 5 * %in2%
  554. &sv varx8b := %varx8a% + 5 * %in2%
  555. &sv varx9 := %varx% - .04
  556. &sv varx10 := %varx5% - .02
  557. &sv varx11 := %varx6% - .04
  558. &sv varx12 := %varx7% - .06
  559. &sv varx13 := %varx8% - .06
  560. &sv varx13a := %varx8a% - .06
  561. &sv varx13b := %varx8b% - .06
  562. &sv varx14a := %varx8b% + %varx%
  563. &sv varx14b := %varx14a% / 2
  564. &sv varx14 := %varx14b% - .4
  565. box %varx% %vary% %varx1% %vary2%
  566. box %varx1% %vary% %varx2% %vary2%
  567. box %varx2% %vary% %varx3% %vary2%
  568. box %varx3% %vary% %varx4% %vary2%
  569. box %varx4% %vary% %varx5% %vary2%
  570. box %varx5% %vary% %varx6% %vary2%
  571. box %varx6% %vary% %varx7% %vary2%
  572. box %varx7% %vary% %varx8% %vary2%
  573. box %varx8% %vary% %varx8a% %vary2%
  574. box %varx8a% %vary% %varx8b% %vary2%
  575. pensize .010
  576. line %varx% %vary3% %varx1% %vary3%
  577. line %varx2% %vary3% %varx3% %vary3%
  578. line %varx4% %vary3% %varx5% %vary3%
  579. line %varx6% %vary3% %varx7% %vary3%
  580. line %varx8% %vary3% %varx8a% %vary3%
  581. textspacing 1.2
  582. textquality proportional
  583. textsize .1 .08
  584. textfont 94021
  585. move %varx9% %vary4%
  586. text '50'
  587. move %varx10% %vary4%
  588. text '0'
  589. move %varx11% %vary4%
  590. text '50'
  591. move %varx12% %vary4%
  592. text '100'
  593. move %varx13% %vary4%
  594. text '150 '
  595. move %varx13a% %vary4%
  596. text '200 '
  597. move %varx13b% %vary4%
  598. text '250 MILES'
  599. textsize .125 .1
  600. move %varx14% %vary5%
  601. text 'SCALE 1: '
  602. text [quote %msc2%]
  603. &sv varx15 := 56.794322 * %in1%
  604. &sv mtr1 := .62137119 * %in1%
  605. &sv mtr2 := 10 * %mtr1%
  606. &sv varx16 := %varx% + %varx15%
  607. &sv varx17 := %varx16% + %mtr2%
  608. &sv varx18 := %varx17% + %mtr2%
  609. &sv varx19 := %varx18% + %mtr2%
  610. &sv varx20 := %varx19% + %mtr2%
  611. &sv varx21 := %varx20% + %mtr2%
  612. &sv varx22 := %varx21% + 5 * %mtr2%
  613. &sv varx23 := %varx22% + 5 * %mtr2%
  614. &sv varx24 := %varx23% + 5 * %mtr2%
  615. &sv varx25 := %varx24% + 5 * %mtr2%
  616. &sv varx25a := %varx25% + 5 * %mtr2%
  617. &sv varx26 := %varx16% - .04
  618. &sv varx27 := %varx21% - .02
  619. &sv varx28 := %varx22% - .04
  620. &sv varx29 := %varx23% - .06
  621. &sv varx30 := %varx24% - .06
  622. &sv varx31 := %varx25% - .06
  623. &sv varx31a := %varx25a% - .06
  624. pensize .005
  625. box %varx16% %vary7% %varx17% %vary8%
  626. box %varx17% %vary7% %varx18% %vary8%
  627. box %varx18% %vary7% %varx19% %vary8%
  628. box %varx19% %vary7% %varx20% %vary8%
  629. box %varx20% %vary7% %varx21% %vary8%
  630. box %varx21% %vary7% %varx22% %vary8%
  631. box %varx22% %vary7% %varx23% %vary8%
  632. box %varx23% %vary7% %varx24% %vary8%
  633. box %varx24% %vary7% %varx25% %vary8%
  634. box %varx25% %vary7% %varx25a% %vary8%
  635. pensize .010
  636. line %varx16% %vary9% %varx17% %vary9%
  637. line %varx18% %vary9% %varx19% %vary9%
  638. line %varx20% %vary9% %varx21% %vary9%
  639. line %varx22% %vary9% %varx23% %vary9%
  640. line %varx24% %vary9% %varx25% %vary9%
  641. textsize .1 .08
  642. move %varx26% %vary6%
  643. text '50'
  644. move %varx27% %vary6%
  645. text '0'
  646. move %varx28% %vary6%
  647. text '50'
  648. move %varx29% %vary6%
  649. text '100'
  650. move %varx30% %vary6%
  651. text '150'
  652. move %varx31% %vary6%
  653. text '200'
  654. move %varx31a% %vary6%
  655. text '250 KILOMETERS'
  656. &end
  657. /* Part 7 mapbar.aml 12/08/93 W R Beeman
  658. &if %msc% > 4000000 &then
  659. &do
  660. &sv in2 := 25 * %in1%
  661. pensize .005
  662. &sv varx1 := %varx% + %in2%
  663. &sv varx2 := %varx1% + %in2%
  664. &sv varx3 := %varx2% + %in2%
  665. &sv varx4 := %varx3% + %in2%
  666. &sv varx5 := %varx4% + 4 * %in2%
  667. &sv varx6 := %varx5% + 4 * %in2%
  668. &sv varx7 := %varx6% + 4 * %in2%
  669. &sv varx8 := %varx7% + 4 * %in2%
  670. &sv varx8a := %varx8% + 4 * %in2%
  671. &sv varx9 := %varx% - .06
  672. &sv varx10 := %varx4% - .02
  673. &sv varx11 := %varx5% - .04
  674. &sv varx12 := %varx6% - .06
  675. &sv varx13 := %varx7% - .06
  676. &sv varx13a := %varx8% - .06
  677. &sv varx13b := %varx8a% - .06
  678. &sv varx14a := %varx8a% + %varx%
  679. &sv varx14b := %varx14a% / 2
  680. &sv varx14 := %varx14b% - .4
  681. box %varx% %vary% %varx1% %vary2%
  682. box %varx1% %vary% %varx2% %vary2%
  683. box %varx2% %vary% %varx3% %vary2%
  684. box %varx3% %vary% %varx4% %vary2%
  685. box %varx4% %vary% %varx5% %vary2%
  686. box %varx5% %vary% %varx6% %vary2%
  687. box %varx6% %vary% %varx7% %vary2%
  688. box %varx7% %vary% %varx8% %vary2%
  689. box %varx8% %vary% %varx8a% %vary2%
  690. pensize .010
  691. line %varx% %vary3% %varx1% %vary3%
  692. line %varx2% %vary3% %varx3% %vary3%
  693. line %varx4% %vary3% %varx5% %vary3%
  694. line %varx6% %vary3% %varx7% %vary3%
  695. line %varx8% %vary3% %varx8a% %vary3%
  696. textspacing 1.2
  697. textquality proportional
  698. textsize .1 .08
  699. textfont 94021
  700. move %varx9% %vary4%
  701. text '100'
  702. move %varx10% %vary4%
  703. text '0'
  704. move %varx11% %vary4%
  705. text '100'
  706. move %varx12% %vary4%
  707. text '200'
  708. move %varx13% %vary4%
  709. text '300'
  710. move %varx13a% %vary4%
  711. text '400'
  712. move %varx13b% %vary4%
  713. text '500 MILES'
  714. textsize .125 .1
  715. move %varx14% %vary5%
  716. text 'SCALE 1: '
  717. text [quote %msc2%]
  718. &sv varx15 := 113.58864 * %in1%
  719. &sv mtr1 := .62137119 * %in1%
  720. &sv mtr2 := 25 * %mtr1%
  721. &sv varx16 := %varx% + %varx15%
  722. &sv varx17 := %varx16% + %mtr2%
  723. &sv varx18 := %varx17% + %mtr2%
  724. &sv varx19 := %varx18% + %mtr2%
  725. &sv varx20 := %varx19% + %mtr2%
  726. &sv varx21 := %varx20% + 4 * %mtr2%
  727. &sv varx22 := %varx21% + 4 * %mtr2%
  728. &sv varx23 := %varx22% + 4 * %mtr2%
  729. &sv varx24 := %varx23% + 4 * %mtr2%
  730. &sv varx25 := %varx24% + 4 * %mtr2%
  731. &sv varx26 := %varx16% - .06
  732. &sv varx27 := %varx20% - .02
  733. &sv varx28 := %varx21% - .06
  734. &sv varx29 := %varx22% - .06
  735. &sv varx30 := %varx23% - .06
  736. &sv varx31 := %varx24% - .06
  737. &sv varx32 := %varx25% - .06
  738. pensize .005
  739. box %varx16% %vary7% %varx17% %vary8%
  740. box %varx17% %vary7% %varx18% %vary8%
  741. box %varx18% %vary7% %varx19% %vary8%
  742. box %varx19% %vary7% %varx20% %vary8%
  743. box %varx20% %vary7% %varx21% %vary8%
  744. box %varx21% %vary7% %varx22% %vary8%
  745. box %varx22% %vary7% %varx23% %vary8%
  746. box %varx23% %vary7% %varx24% %vary8%
  747. box %varx24% %vary7% %varx25% %vary8%
  748. pensize .010
  749. line %varx16% %vary9% %varx17% %vary9%
  750. line %varx18% %vary9% %varx19% %vary9%
  751. line %varx20% %vary9% %varx21% %vary9%
  752. line %varx22% %vary9% %varx23% %vary9%
  753. line %varx24% %vary9% %varx25% %vary9%
  754. textsize .1 .08
  755. move %varx26% %vary6%
  756. text '100'
  757. move %varx27% %vary6%
  758. text '0'
  759. move %varx28% %vary6%
  760. text '100'
  761. move %varx29% %vary6%
  762. text '200'
  763. move %varx30% %vary6%
  764. text '300'
  765. move %varx31% %vary6%
  766. text '400'
  767. move %varx32% %vary6%
  768. text '500 KILOMETERS'
  769. &end
  770. /* Part 8  mapbar.aml 12/08/93 W R Beeman
  771. &if %msc% >= 40000 and %msc% < 80000 &then
  772. &do
  773. &sv in8 := .1 * %in1%
  774. pensize .005
  775. &sv varx1 := %varx% + %in8%
  776. &sv varx2 := %varx1% + %in8%
  777. &sv varx3 := %varx2% + %in8%
  778. &sv varx4 := %varx3% + %in8%
  779. &sv varx5 := %varx4% + %in8%
  780. &sv varx6 := %varx5% + %in8%
  781. &sv varx7 := %varx6% + %in8%
  782. &sv varx8 := %varx7% + %in8%
  783. &sv varx8a := %varx8% + %in8%
  784. &sv varx8b := %varx8a% + %in8%
  785. &sv varx8c := %varx8b% + %in1%
  786. &sv varx8d := %varx8c% + %in1%
  787. &sv varx8e := %varx8d% + %in1%
  788. &sv varx9 := %varx% - .02
  789. &sv varx10 := %varx5% - .04
  790. &sv varx11 := %varx8b% - .02
  791. &sv varx12 := %varx8c% - .02
  792. &sv varx13 := %varx8d% - .02
  793. &sv varx13a := %varx8e% - .02
  794. &sv varx14a := %varx8e% + %varx%
  795. &sv varx14b := %varx14a% / 2
  796. &sv varx14 := %varx14b% - .4
  797. box %varx% %vary% %varx1% %vary2%
  798. box %varx1% %vary% %varx2% %vary2%
  799. box %varx2% %vary% %varx3% %vary2%
  800. box %varx3% %vary% %varx4% %vary2%
  801. box %varx4% %vary% %varx5% %vary2%
  802. box %varx5% %vary% %varx6% %vary2%
  803. box %varx6% %vary% %varx7% %vary2%
  804. box %varx7% %vary% %varx8% %vary2%
  805. box %varx8% %vary% %varx8a% %vary2%
  806. box %varx8a% %vary% %varx8b% %vary2%
  807. box %varx8b% %vary% %varx8c% %vary2%
  808. box %varx8c% %vary% %varx8d% %vary2%
  809. box %varx8d% %vary% %varx8e% %vary2%
  810. pensize .010
  811. line %varx% %vary3% %varx1% %vary3%
  812. line %varx2% %vary3% %varx3% %vary3%
  813. line %varx4% %vary3% %varx5% %vary3%
  814. line %varx6% %vary3% %varx7% %vary3%
  815. line %varx8% %vary3% %varx8a% %vary3%
  816. line %varx8b% %vary3% %varx8c% %vary3%
  817. line %varx8d% %vary3% %varx8e% %vary3%
  818. textspacing 1.2
  819. textquality proportional
  820. textsize .1 .08
  821. textfont 94021
  822. move %varx9% %vary4%
  823. text '1'
  824. move %varx10% %vary4%
  825. text '.5'
  826. move %varx11% %vary4%
  827. text '0'
  828. move %varx12% %vary4%
  829. text '1'
  830. move %varx13% %vary4%
  831. text '2'
  832. move %varx13a% %vary4%
  833. text '3 MILES'
  834. textsize .125 .1
  835. move %varx14% %vary5%
  836. text 'SCALE 1: '
  837. text [quote %msc2%]
  838. &sv varx15 := .75725762 * %in1%
  839. &sv mtr1 := .62137119 * %in1%
  840. &sv mtr2 := .1 * %mtr1%
  841. &sv varx16 := %varx% + %varx15%
  842. &sv varx17 := %varx16% + %mtr2%
  843. &sv varx18 := %varx17% + %mtr2%
  844. &sv varx19 := %varx18% + %mtr2%
  845. &sv varx20 := %varx19% + %mtr2%
  846. &sv varx21 := %varx20% + %mtr2%
  847. &sv varx22 := %varx21% + %mtr2%
  848. &sv varx23 := %varx22% + %mtr2%
  849. &sv varx24 := %varx23% + %mtr2%
  850. &sv varx25 := %varx24% + %mtr2%
  851. &sv varx25a := %varx25% + %mtr2%
  852. &sv varx25b := %varx25a% + %mtr1%
  853. &sv varx25c := %varx25b% + %mtr1%
  854. &sv varx25d := %varx25c% + %mtr1%
  855. &sv varx26 := %varx16% - .02
  856. &sv varx27 := %varx21% - .04
  857. &sv varx28 := %varx25a% - .02
  858. &sv varx29 := %varx25b% - .02
  859. &sv varx30 := %varx25c% - .02
  860. &sv varx31 := %varx25d% - .02
  861. pensize .005
  862. box %varx16% %vary7% %varx17% %vary8%
  863. box %varx17% %vary7% %varx18% %vary8%
  864. box %varx18% %vary7% %varx19% %vary8%
  865. box %varx19% %vary7% %varx20% %vary8%
  866. box %varx20% %vary7% %varx21% %vary8%
  867. box %varx21% %vary7% %varx22% %vary8%
  868. box %varx22% %vary7% %varx23% %vary8%
  869. box %varx23% %vary7% %varx24% %vary8%
  870. box %varx24% %vary7% %varx25% %vary8%
  871. box %varx25% %vary7% %varx25a% %vary8%
  872. box %varx25a% %vary7% %varx25b% %vary8%
  873. box %varx25b% %vary7% %varx25c% %vary8%
  874. box %varx25c% %vary7% %varx25d% %vary8%
  875. pensize .010
  876. line %varx16% %vary9% %varx17% %vary9%
  877. line %varx18% %vary9% %varx19% %vary9%
  878. line %varx20% %vary9% %varx21% %vary9%
  879. line %varx22% %vary9% %varx23% %vary9%
  880. line %varx24% %vary9% %varx25% %vary9%
  881. line %varx25a% %vary9% %varx25b% %vary9%
  882. line %varx25c% %vary9% %varx25d% %vary9%
  883. textsize .1 .08
  884. move %varx26% %vary6%
  885. text '1'
  886. move %varx27% %vary6%
  887. text '.5'
  888. move %varx28% %vary6%
  889. text '0'
  890. move %varx29% %vary6%
  891. text '1'
  892. move %varx30% %vary6%
  893. text '2'
  894. move %varx31% %vary6%
  895. text '3 KILOMETERS'
  896. &end
  897. &return
  898. EOA
  899. EOS
  900.